home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / health / beditbox.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-07-21  |  4.4 KB  |  144 lines
  1. VERSION 2.00
  2. Begin Form BEditform 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   1  'Fixed Single
  5.    ClientHeight    =   3285
  6.    ClientLeft      =   1290
  7.    ClientTop       =   1425
  8.    ClientWidth     =   6765
  9.    ControlBox      =   0   'False
  10.    Height          =   3690
  11.    Left            =   1230
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   13.688
  17.    ScaleMode       =   4  'Character
  18.    ScaleWidth      =   56.375
  19.    Top             =   1080
  20.    Width           =   6885
  21.    Begin CommandButton Command3 
  22.       Caption         =   "Cancel"
  23.       FontBold        =   -1  'True
  24.       FontItalic      =   0   'False
  25.       FontName        =   "MS Sans Serif"
  26.       FontSize        =   9.75
  27.       FontStrikethru  =   0   'False
  28.       FontUnderline   =   0   'False
  29.       Height          =   375
  30.       Left            =   4920
  31.       TabIndex        =   3
  32.       Top             =   2760
  33.       Width           =   1095
  34.    End
  35.    Begin CommandButton Command2 
  36.       Caption         =   "Clear"
  37.       FontBold        =   -1  'True
  38.       FontItalic      =   0   'False
  39.       FontName        =   "MS Sans Serif"
  40.       FontSize        =   9.75
  41.       FontStrikethru  =   0   'False
  42.       FontUnderline   =   0   'False
  43.       Height          =   375
  44.       Left            =   2880
  45.       TabIndex        =   2
  46.       Tag             =   "  Re-Enter Location Prior To Admission"
  47.       Top             =   2760
  48.       Width           =   1095
  49.    End
  50.    Begin CommandButton Command1 
  51.       Caption         =   "Enter"
  52.       Default         =   -1  'True
  53.       FontBold        =   -1  'True
  54.       FontItalic      =   0   'False
  55.       FontName        =   "MS Sans Serif"
  56.       FontSize        =   9.75
  57.       FontStrikethru  =   0   'False
  58.       FontUnderline   =   0   'False
  59.       Height          =   375
  60.       Left            =   720
  61.       TabIndex        =   1
  62.       Top             =   2760
  63.       Width           =   1095
  64.    End
  65.    Begin VBedit BEdit1 
  66.       CellHeight      =   5
  67.       CellWidth       =   4
  68.       CharSet         =   16655
  69.       CombBaseLine    =   2
  70.       CombEndHeight   =   1.6
  71.       CombEndMarker   =   0   'False
  72.       CombHeight      =   1.1
  73.       FontBold        =   0   'False
  74.       FontItalic      =   0   'False
  75.       FontName        =   "MS Sans Serif"
  76.       FontSize        =   18
  77.       FontStrikethru  =   0   'False
  78.       FontUnderline   =   0   'False
  79.       Height          =   855
  80.       InflateBottom   =   0.75
  81.       InflateLeft     =   1.5
  82.       InflateRight    =   1.5
  83.       InflateTop      =   1
  84.       Left            =   120
  85.       TabIndex        =   0
  86.       Top             =   1320
  87.       Version         =   268435458
  88.       Width           =   6615
  89.    End
  90.    Begin Label Label1 
  91.       Alignment       =   2  'Center
  92.       Caption         =   "Label1"
  93.       FontBold        =   -1  'True
  94.       FontItalic      =   0   'False
  95.       FontName        =   "MS Sans Serif"
  96.       FontSize        =   12
  97.       FontStrikethru  =   0   'False
  98.       FontUnderline   =   0   'False
  99.       Height          =   855
  100.       Left            =   840
  101.       TabIndex        =   4
  102.       Tag             =   "Enter Location Prior To Admission"
  103.       Top             =   0
  104.       Width           =   5055
  105.    End
  106. Dim newload As Integer
  107. Sub Command1_Click ()
  108. Select Case label1.tag
  109. Case " Enter Location Prior To Admission"
  110.     If Bedit1.text = "" Then
  111.     assess1.option3d4(5).caption = "OTHER"
  112.     Else
  113.     assess1.option3d4(5).caption = UCase$(Bedit1.text)
  114.     End If
  115.     Unload BEditform
  116. Case " Enter Other Injuries And Marks"
  117.     If Bedit1.text = "" Then
  118.     assess3.Check1.caption = "  O=Other"
  119.     Else
  120.     assess3.Check1.caption = UCase$(Mid$(Bedit1.text, 1, 1)) + "=" + UCase$(Mid$(Bedit1.text, 1, 1)) + LCase$(Mid$(Bedit1.text, 2))
  121.     End If
  122.     Unload BEditform
  123. End Select
  124. End Sub
  125. Sub Command1_GotFocus ()
  126. If newload Then
  127. BEditform.label1.caption = BEditform.label1.tag
  128. newload = 0
  129. End If
  130. End Sub
  131. Sub Command2_Click ()
  132. Bedit1.text = ""
  133. label1.caption = command2.tag
  134. End Sub
  135. Sub Command3_Click ()
  136. Unload BEditform
  137. End Sub
  138. Sub Form_Load ()
  139. newload = -1
  140. BEditform.Move (screen.width - BEditform.width) / 2, (screen.height - BEditform.height) / 1.8
  141. Bedit1.text = ""
  142. label1.caption = label1.tag
  143. End Sub
  144.